/ BCI NET / BCI NET Dec 94.iso / archives / programming / blitzbasic / bltzdemo.lha / examples2 / dbscrolling.bb2

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 4d 61 6b 65 20 73 75 | 72 65 20 79 6f 75 20 68 |;Make su|re you h|
|00000010| 61 76 65 20 43 44 27 64 | 20 74 6f 20 74 68 69 73 |ave CD'd| to this|
|00000020| 20 64 69 72 65 63 74 6f | 72 79 21 21 21 21 00 3b | directo|ry!!!!.;|
|00000030| 00 3b 54 68 69 73 20 65 | 78 61 6d 70 6c 65 20 64 |.;This e|xample d|
|00000040| 65 6d 6f 6e 73 74 61 72 | 74 65 73 20 61 20 74 65 |emonstar|tes a te|
|00000050| 63 68 6e 69 71 75 65 20 | 62 79 20 77 68 69 63 68 |chnique |by which|
|00000060| 20 6d 61 70 2f 62 6c 6f | 63 6b 20 62 61 73 65 64 | map/blo|ck based|
|00000070| 00 3b 68 6f 72 69 7a 6f | 6e 74 61 6c 20 73 63 72 |.;horizo|ntal scr|
|00000080| 6f 6c 6c 69 6e 67 20 6d | 61 79 20 62 65 20 61 63 |olling m|ay be ac|
|00000090| 68 69 65 76 65 64 2e 20 | 54 68 69 73 20 69 73 20 |hieved. |This is |
|000000a0| 69 64 65 6e 74 69 63 61 | 6c 00 3b 74 6f 20 74 68 |identica|l.;to th|
|000000b0| 65 20 27 73 63 72 6f 6c | 6c 69 6e 67 2e 62 62 32 |e 'scrol|ling.bb2|
|000000c0| 27 20 64 65 6d 6f 2c 20 | 6f 6e 6c 79 20 69 74 20 |' demo, |only it |
|000000d0| 74 61 6b 65 73 20 69 6e | 74 6f 20 61 63 63 6f 75 |takes in|to accou|
|000000e0| 6e 74 00 3b 64 6f 75 62 | 6c 65 20 62 75 66 66 65 |nt.;doub|le buffe|
|000000f0| 72 69 6e 67 2e 00 3b 00 | 3b 55 73 65 20 74 68 65 |ring..;.|;Use the|
|00000100| 20 6a 6f 79 73 74 69 63 | 6b 20 74 6f 20 63 6f 6e | joystic|k to con|
|00000110| 74 72 6f 6c 20 73 63 72 | 6f 6c 6c 69 6e 67 2c 20 |trol scr|olling, |
|00000120| 6a 6f 79 73 74 69 63 6b | 20 62 75 74 74 6f 6e 20 |joystick| button |
|00000130| 74 6f 20 65 78 69 74 00 | 3b 00 dd 81 20 22 50 6c |to exit.|;... "Pl|
|00000140| 65 61 73 65 20 57 61 69 | 74 2e 2e 2e 22 00 d0 01 |ease Wai|t..."...|
|00000150| 20 30 2c 32 35 36 2c 36 | 34 2c 31 00 d0 02 20 30 | 0,256,6|4,1... 0|
|00000160| 2c 22 64 61 74 61 2f 6d | 61 70 22 00 00 80 04 20 |,"data/m|ap".... |
|00000170| 6d 28 32 35 35 2c 36 33 | 29 00 00 80 16 20 78 3d |m(255,63|).... x=|
|00000180| 30 20 80 18 20 32 35 35 | 00 80 16 20 79 3d 30 20 |0 .. 255|... y=0 |
|00000190| 80 18 20 36 33 00 6d 28 | 78 2c 79 29 3d b2 04 28 |.. 63.m(|x,y)=..(|
|000001a0| 78 2c 79 29 00 80 17 3a | 80 17 00 00 cd 01 20 30 |x,y)...:|...... 0|
|000001b0| 2c 22 64 61 74 61 2f 62 | 6c 6f 63 6b 22 2c 30 00 |,"data/b|lock",0.|
|000001c0| 00 80 34 00 00 77 3d 37 | 30 34 00 00 80 08 20 62 |..4..w=7|04.... b|
|000001d0| 7b 73 2c 78 2c 79 7d 00 | 80 0b 20 73 20 80 21 20 |{s,x,y}.|.. s .! |
|000001e0| cb 02 20 cb 03 20 80 22 | 20 cb 02 20 cb 04 00 cb |.. .. ."| .. ....|
|000001f0| 01 20 30 2c 78 2c 79 00 | 80 02 20 80 08 00 00 80 |. 0,x,y.|.. .....|
|00000200| 08 20 63 7b 73 2c 78 2c | 79 7d 00 80 0b 20 73 20 |. c{s,x,|y}... s |
|00000210| 80 21 20 cb 02 20 cb 03 | 3a cb 01 20 30 2c 78 2c |.! .. ..|:.. 0,x,|
|00000220| 79 00 80 02 20 80 08 00 | 00 d0 01 20 30 2c 77 2c |y... ...|... 0,w,|
|00000230| 31 39 32 2c 33 00 3b 42 | 6f 78 66 20 31 36 2c 30 |192,3.;B|oxf 16,0|
|00000240| 2c 33 35 31 2c 31 39 31 | 2c 32 00 c7 02 20 30 00 |,351,191|,2... 0.|
|00000250| 00 80 16 20 79 3d 30 20 | 80 18 20 31 31 00 3b 00 |... y=0 |.. 11.;.|
|00000260| 80 16 20 78 3d 31 20 80 | 18 20 32 31 00 63 7b 6d |.. x=1 .|. 21.c{m|
|00000270| 28 78 2c 79 29 2c 78 20 | 80 7c 20 34 2c 79 20 80 |(x,y),x |.| 4,y .|
|00000280| 7c 20 34 7d 00 63 7b 6d | 28 78 2c 79 29 2c 33 35 || 4}.c{m|(x,y),35|
|00000290| 32 2b 78 20 80 7c 20 34 | 2c 79 20 80 7c 20 34 7d |2+x .| 4|,y .| 4}|
|000002a0| 00 80 17 00 3b 00 80 17 | 00 00 d0 05 20 30 2c 31 |....;...|.... 0,1|
|000002b0| 00 00 c8 01 20 30 2c 34 | 34 2c 33 32 30 2c 31 39 |.... 0,4|4,320,19|
|000002c0| 32 2c 24 66 66 66 38 2c | 33 2c 38 2c 33 32 2c 77 |2,$fff8,|3,8,32,w|
|000002d0| 2c 77 00 00 80 2c 20 ce | 09 20 30 00 00 73 78 3d |,w..., .|. 0..sx=|
|000002e0| 30 20 3b 73 63 72 6f 6c | 6c 20 78 00 6d 78 3d 30 |0 ;scrol|l x.mx=0|
|000002f0| 20 3b 6d 61 70 20 78 00 | 3b 00 73 79 3d 30 20 20 | ;map x.|;.sy=0  |
|00000300| 3b 73 63 72 6f 6c 6c 20 | 79 00 6d 79 3d 30 20 20 |;scroll |y.my=0  |
|00000310| 3b 6d 61 70 20 79 00 3b | 00 6f 78 73 3d 30 3a 78 |;map y.;|.oxs=0:x|
|00000320| 73 3d 30 00 00 61 3d 2e | 32 35 00 00 80 0c 20 df |s=0..a=.|25.... .|
|00000330| 04 28 31 29 3d 30 00 3b | 00 80 37 00 3b 00 c8 04 |.(1)=0.;|..7.;...|
|00000340| 20 64 62 2c 73 78 2c 73 | 79 3a 64 62 3d 31 2d 64 | db,sx,s|y:db=1-d|
|00000350| 62 3a 80 2c 20 d0 01 20 | 64 62 00 3b 00 6f 78 32 |b:., .. |db.;.ox2|
|00000360| 3d 78 32 00 6f 79 32 3d | 79 32 00 6f 78 73 3d 78 |=x2.oy2=|y2.oxs=x|
|00000370| 73 00 3b 00 78 32 3d bc | 02 28 6d 78 20 80 7d 20 |s.;.x2=.|.(mx .} |
|00000380| 34 29 00 79 32 3d bc 02 | 28 6d 79 20 80 7d 20 34 |4).y2=..|(my .} 4|
|00000390| 29 00 3b 00 80 0e 20 df | 01 28 31 29 00 80 0f 20 |).;... .|.(1)... |
|000003a0| 2d 31 00 20 20 3b 00 20 | 20 78 73 2d 61 3a 80 0b |-1.  ;. | xs-a:..|
|000003b0| 20 78 73 3c 2d 38 20 80 | 21 20 78 73 2b 61 00 20 | xs<-8 .|! xs+a. |
|000003c0| 20 3b 00 80 0f 20 31 00 | 20 20 3b 00 20 20 78 73 | ;... 1.|  ;.  xs|
|000003d0| 2b 61 3a 80 0b 20 78 73 | 3e 38 20 80 21 20 78 73 |+a:.. xs|>8 .! xs|
|000003e0| 2d 61 00 20 20 3b 00 80 | 02 20 80 0e 00 80 0b 20 |-a.  ;..|. ..... |
|000003f0| df 02 28 31 29 20 80 21 | 20 78 73 3d 30 00 3b 00 |..(1) .!| xs=0.;.|
|00000400| 3b 00 3b 49 66 20 78 32 | 3c 3e 6f 78 32 20 4f 52 |;.;If x2|<>ox2 OR|
|00000410| 20 53 67 6e 28 6f 78 73 | 29 3c 3e 53 67 6e 28 78 | Sgn(oxs|)<>Sgn(x|
|00000420| 73 29 00 20 20 80 0b 20 | 78 73 3e 30 00 20 20 20 |s).  .. |xs>0.   |
|00000430| 20 73 78 32 3d 73 78 20 | 80 42 20 24 66 66 66 30 | sx2=sx |.B $fff0|
|00000440| 00 20 20 20 20 80 16 20 | 79 3d 30 20 80 18 20 31 |.    .. |y=0 .. 1|
|00000450| 31 00 20 20 20 20 62 7b | 6d 28 78 32 2b 32 31 20 |1.    b{|m(x2+21 |
|00000460| 80 42 20 32 35 35 2c 79 | 32 2b 79 20 80 42 20 36 |.B 255,y|2+y .B 6|
|00000470| 33 29 2c 73 78 32 2b 33 | 33 36 2c 79 20 80 7c 20 |3),sx2+3|36,y .| |
|00000480| 34 7d 00 20 20 20 20 62 | 7b 6d 28 78 32 2b 32 31 |4}.    b|{m(x2+21|
|00000490| 20 80 42 20 32 35 35 2c | 79 32 2b 79 20 80 42 20 | .B 255,|y2+y .B |
|000004a0| 36 33 29 2c 73 78 32 2d | 31 36 2c 79 20 80 7c 20 |63),sx2-|16,y .| |
|000004b0| 34 7d 00 20 20 20 20 80 | 17 00 20 20 80 c0 00 20 |4}.    .|..  ... |
|000004c0| 20 80 0b 20 78 73 3c 30 | 00 20 20 20 20 73 78 32 | .. xs<0|.    sx2|
|000004d0| 3d 73 78 20 80 42 20 24 | 66 66 66 30 00 20 20 20 |=sx .B $|fff0.   |
|000004e0| 20 80 16 20 79 3d 30 20 | 80 18 20 31 31 00 20 20 | .. y=0 |.. 11.  |
|000004f0| 20 20 62 7b 6d 28 78 32 | 2d 31 20 80 42 20 32 35 |  b{m(x2|-1 .B 25|
|00000500| 35 2c 79 32 2b 79 20 80 | 42 20 36 33 29 2c 73 78 |5,y2+y .|B 63),sx|
|00000510| 32 2d 31 36 2c 79 20 80 | 7c 20 34 7d 00 20 20 20 |2-16,y .|| 4}.   |
|00000520| 20 62 7b 6d 28 78 32 2d | 31 20 80 42 20 32 35 35 | b{m(x2-|1 .B 255|
|00000530| 2c 79 32 2b 79 20 80 42 | 20 36 33 29 2c 73 78 32 |,y2+y .B| 63),sx2|
|00000540| 2b 33 33 36 2c 79 20 80 | 7c 20 34 7d 00 20 20 20 |+336,y .|| 4}.   |
|00000550| 20 80 17 00 20 20 80 c0 | 00 3b 45 6e 64 49 66 00 | ...  ..|.;EndIf.|
|00000560| 3b 00 6d 78 3d bc 06 28 | 6d 78 2b 78 73 2c 30 2c |;.mx=..(|mx+xs,0,|
|00000570| 34 30 39 36 29 00 73 78 | 3d bc 06 28 73 78 2b 78 |4096).sx|=..(sx+x|
|00000580| 73 2c 31 36 2c 33 36 38 | 29 00 3b 00 80 c1 00 00 |s,16,368|).;.....|
+--------+-------------------------+-------------------------+--------+--------+